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VERSION: 
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MOD: 0 


DATE: 


November, 1970 


PROGRAMMER : Herbert Poppe 

I 

ADDRESS : Lament Geological Observatory of Columbia University 

Palisades, New York 10964 


PURPOSE ; 

To allow the 3-Word Floating Point Arithmetic Inteirpreter (DEC-08- Y^YB) 
to reside in any memory field and to be entered from that field or any 
other memory field. 

INTRODUCTION ; 

Few things are more frxistrating to a computer user than to find that the 
systems software for his machine is tailored to the minimum configuration. 
His expensive expansion to extended memory and perhiperal devices are 
largely unsupported within the available system softirare. The patch 
described here enables the user to make efficient use of the floating¬ 
point arithmetic interpreter in an extended memory configuration. The 
patch and floating-point package (FPP) reside wholly within any memory 
field. The patch either modifies locations or occupies unused locations 
within the FPP, It may be used with any of the versions of the FPP 
(i.e., with or without the output controller, with or without the 
extended functions). The patch contains coding necessary for picking 
up the interpretive instructions from across field boundaries, for 
picking and storing the contents of the effective address across 
field boundaries, and for returning control from the FPP across field 
boundaries to the calling field. The technique used to achieve these 
featxires, luilike DECUS No. 8-188 (Extended Memory Patch for Four Word 
Floating Point Package), does not require that certain locations 
common to the FPP be reserved in every field. 

RESTRICTIONS : 

This patch will not work with the previous version of the FPP, DEC-08-YQYA 
(digital 8-5-s). The only restriction on the use of the patched FPP is 
that the effective address of an interpretive instruction must be in the 
same field as the interpretive instruction. For example, if the patched 
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FPP resides in Field 3 and the list of interpretive instructions is in 
Field 1, then ADDR in FGET ADDR or DATA in FMFY I ADATA, where ADATA, 

DATA, is understood to be in Field 1. 

CORE REQUIREMSNTS ; 

The patch extensively modifies locations 5^00 - 5T7^ and modifies or 
occupies locations 6l60 - 6lTT; 6271; 6336; 6373; 6375-6377; 651+5-6563; 
6655; and 7160 - 7176. 

OTHER PROGRAMS REQUIRED : 

DEC-OS-YQYB; 3-^'^ord Floating Point Arithmetic Interpreter. 

LOADING AED PATCHING ; 

Load the desired version of the EPP into the field in which it is to 
reside with the Binary Loader or the DISK/dECTAPE SYSTEM Binary Loader. 

Then load the patch into the same field. With the console switches, 
set the contents of location 5655 to 62N1, where N = memory field in 
which the FPP resides. This location is initially set to 623I (Memory 
Field 3). 

Note that the patch resets all the addresses in the interpretive sub¬ 
routine table (from locations 651+7 - 6563) to point to the dummy sub¬ 
routine at EXIT 6 (loc. 6167). The user must set up these locations 
to point to the extended ftinctions or his own interpretive routines. 

When patching is complete, the patched FPP may be saved on the systems 
device if available. 

OPERATION : 

On entry, the patched FPP uses the contents of the Data Field (DF) register 
to identify the calling field. Therefore, if necessary, the DF register 
must be set to the calling field at some time prior to entering the FPP. 

The following example illustrates this point and the method of entering 
the FPP. It is not necessary to clear the contents of the accumilLator 
or link on entering the FPP and they will be cleared when control retiorns 
to the calling field. 









STARTs 


ADATA2, 
DATAl, 


DATA2# 


X0 = 30 


FENTR=JMS I 7 

FEXT=0000 

FGET=5000 

FPUT=6000 

FADD=1000 

FIELD 1 


♦0007 


5600 


♦0200 


CLA 

CLL 

CDF+20 


TAD I 

ADATA2 

DCA 

DATAl 

ISZ 

ADATA2 

TAD I 

ADATA2 

DCA 

DATAl+1 

ISZ 

ADATA2 

TAD I 

ADATA2 

DCA 

DATA1+2 

CDF+10 


CIF+X0 


FENTR 


FGET 

DATAl 

FADD 

DATAl 

FPUT 

DATAl 

FEXT 


HLT 


DATA2 


0000 


0000 


0000 


FIELD 2 


*0400 


0002 


2000 


0000 



/THIS CODE IN FIELD 1 

/PICK UP 3-WORD FLOATING 
/POINT NUMBER FROM FIELD 2 


/SET DF TO CALLING FIELD 
/FPP IN FIELD X 


/RETURN HERE WITH IF&DF=1 


/ 2.0 


S 
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/EXTENDED MEMORY PATCH TO THE 3-WORD 

/FLOATING POINT ARITHMETIC INTERPRETER DEC-08-YQYB 

/(DOES NOT WORK WITH OLDER VERSION DEC-08-YQYA CDIGITAL 8-5* 

/HERBERT POPPE 

/LAMONT GEOLOGICAL OBSERVATORY 
/PALISADES^ NEW YORK 
/OCTOBER 1970 

/FLOATING POINT PACKAGE MAY RESIDE IN ANY FIELD 
. /FLOATING POINT PACKAGE MAY BE CALLED FROM ANY FIELD 
/SET X0 TO FIELD IN WHICH FFP IS TO RESIDE IF COMPILING 
/PATCH SOURCE TAPEi IE> X0=0030 FOR MEMORY FIELD 3 
/SET CONTENT OF LOCATION 5655 = 62N1^ WHERE N = MEMORY 
/FIELD IN WHICH FPP IS TO RESIDE IF PATCHING WITH BINARY TAB 
/AFTER LOADING BINARY TAPE OF FPP INTO DESIRED FIELD# 

/LOAD PATCH OVER IT. THEN CHANGE LOCATION 5655 IF NECESSARY. 

/TO ENTER FLOATING POINT INTERPRETER (EXTENDED MEMORY VERSI8 
/THE DATA FIELD (DF) REGISTER MUST BE SET TO THE CALLING 
/FIELD 

/ CALLING SEQUENCE EXAMPLE: 

/ /THIS CODING IN FIELD 1 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


CIF+X0 

FENTR 


CDF+10 


FEXT 


/X0= FIELD FPP RESIDES IN 

/FENTRsJMS I 0007 

/FP PSEUDO-INSTRUCTIONS 


/FEXTS0000 

/RETURN HERE WITH DF & IF 


EXP=0044i 

X0-0030i 

OVER2=0047i 

AClLs0042j 

DUN0RM=6533i 


HORD=0045: 

MINUS2=6400i 

EX1S0040: 


ALIGN=6020j 

DUBLAD=7053i 


LORD=0046 

OVERl=0043 

AC1H=0041 

FLDV=6264 

DNORMS6600 


♦ 5600 


5600 0000 

5601 7600 

5602 1272 

5603 6214 

504 3353 

5605 1353 

5606 3216 

5607 1353 

5610 3322 

5611 2353 

5612 2353 

5613 7300 

5614 3043 


FPNT# 0000 
MASK5# 7600 


/GROUP 2 CLA 


TAD 

RDF 

DCA 

TAD 

DCA 

TAD 

DCA 

ISZ 

ISZ 


DATAF /A CDF INSTR. 

/GET CALLING FIELD 


FPNTl# CLA 
DCA 


CFIELD 

CFIELD 

FARG 

CFIELD 

FLPT 

CFIELD 

CFIELD /MAKE IT A CDF CIF 
CLL 
OVERl 
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5615 

3047 


DCA 

0VER2 

5616 

0000 

FARG# 

0000 


5617 

1600 


TAD I 

FPNT 

5620 

3267 


DCA 

JUMP 

5621 

1267 


TAD 

JUMP 

5622 

0300 


AND 

PAGENO 

5623 

7650 


SNA 

CLA 

5624 

5227 


JMP 

. + 3 

5625 

1201 


TAD 

MASKS 

5626 

0200 


AND 

FPNT 

5627 

3274 


DCA 

ADDR 

5630 

1277 


TAD 

MASK 7 

5631 

0267 


AND 

JUMP 

5632 

1274 


TAD 

ADDR 

5633 

3274 


DCA 

ADDR 

5634 

1301 


TAD 

INDRCT 

5635 

0267 


AND 

JUMP 

5636 

7650 


SNA 

CLA 

5637 

5242 


JMP 

LOOP01 

5640 

1674 


TAD I 

ADDR 

5641 

3274 


DCA 

ADDR 

5642 

2200 

LOOP01# 

ISZ 

FPNT 

5643 

1674 


TAD I 

ADDR 

5644 

3040 


DCA 

EXl 

5645 

1274 


TAD 

ADDR 

5646 

3275 


DCA 

SAVE 

5647 

2275 


ISZ 

SAVE 

5650 

1675 


TAD I 

SAVE 

5651 

3041 


DCA 

ACIH 

5652 

2275 


ISZ 

SAVE 

5653 

1675 


TAD I 

SAVE 

5654 

3042 


DCA 

ACIL 

5655 

6231 


CDF+X0 


5656 

1267 


TAD 

JUMP 

5657 

7106 


CLL 

RTL 

5660 

7006 


RTL 


5661 

0276 


AND 

MASKS 

5662 

1302 


TAD 

TABLE 

5663 

3270 


DCA 

JUMP2 

5664 

1670 


TAD I 

JUMP2 

5665 

3270 


DCA 

JUMP2 

5666 

5670 


JMP I 

JUMP2 

5667 

0000 

JUMP# 

0000 


5670 

0000 

JUMP2# 

0000 


5671 

0000 

GO0# 

0000 


5672 

6201 

DATAF# 

CDF 


5673 

0000 

G02# 

0000 


5674 

0000 

ADDR# 

0000 


5675 

0000 

SAVE# 

0000 


5676 

0017 

MASK3# 

0017 


5677 

0177 

MASK7# 

0177 


5700 

0200 

PAGENO# 

0200 


5 701 

0400 

INDRCT# 

0400 


5702 

5703 

TABLE# 

. + 1 


5703 

5747 


EXIT 



/FIELD OF NEXT PSEUDO INSTR. 


/GET PAGE BIT 
/PAGE ZERO? 

/YES 

/NO 

/C(FPNT)0-4 CONTAINS PAGE BITS 
/GET 7 BIT ADDRESS 


/INDIRECT BIT = 1? 


/N0-GO ON 
/YES# DEFER 


/EXPONENT 


/HIGH ORDER MANTISSA 


/X0 INDICATE FIELD FPP RESIDES IN 


/GET BITS 0-2; IE OPCODE 
/LOOKUP IN TABLE 


/GO THERE 


/TABLE USED IN INTERPRETING 
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5704 

5735 


FLAD 


5705 

5734 


FLSU 


5706 

6171 


FLMY 


5707 

6264 


FLDV 


5710 

5713 


FLGT 


571 1 

5722 


FLPT 


5712 

5740 


NORF 


5713 

1040 

FLGT* 

TAD 

EXl 

5714 

3044 


DCA 

EXP 

5715 

1041 


TAD 

ACIH 

5716 

3045 


DCA 

HORD 

5717 

1042 


TAD 

ACIL 

5720 

3046 


DCA 

LORD 

5721 

5213 


JMP 

FPNTl 

5722 

0000 

FLPT^ 

0000 


5723 

1044 


TAD 

EXP 

5724 

3674 


DCA I 

ADDR 

5725 

2274 


ISZ 

ADDR 

5726 

1045 


TAD 

HORD 

5727 

3674 


DCA I 

ADDR 

5730 

2274 


ISZ 

ADDR 

5731 

1046 


TAD 

LORD 

5732 

3674 


DCA I 

ADDR 

5733 

5213 


JMP 

FPNTl 

5734 

4742 

FLSU^ 

JMS I 

OPMINS 

5735 

4743 

FLAD# 

JMS I 

ALGN 

5736 

4744 


JMS I 

UNORM 

5737 

4745 


JMS I 

DUBADD 

5740 

4746 

NORF^ 

JMS I 

NORM 

5741 

5213 


JMP 

FPNTl 

5742 

6400 

OPMINS# 

MINUS2 


5743 

6020 

ALGN« 

ALIGN 


5744 

6533 

UNORM> 

DUNORM 


5745 

7053 

DUBADD# 

DUBLAD 


5746 

6600 

NORM# 

DNORM 


5747 

1267 

EXIT# 

TAD 

JUMP 

5750 

0276 


AND 

MASK 3 

5751 

7440 


SZA 


5752 

5356 


JMP 

.+4 

5753 

0000 

CFIELD# 

0000 


5754 

7300 


CLA 

CLL 

5755 

5600 


JMP I 

FPNT 

5756 

1374 


TAD 

AC0N6 

5757 

3270 


DCA 

JUMP2 

5760 

1670 


TAD I 

JUMP2 

5761 

3270 


DCA 

JUMP 2 

5762 

1216 


TAD 

FARG 

5763 

3271 


DCA 

GO0 

5764 

1200 


TAD 

FPNT 

5765 

3273 


DCA 

G02 

5766 

4670 


JMS I 

JUMP2 

5767 

7300 


CLA 

CLL 

5770 

1273 


TAD 

602 

5771 

3200 


DCA 

FPNT 

5772 

1271 


TAD 

GO0 

5773 

5204 


JMP 

FPNT+4 

5774 

6544 

AC0N6# 

TABLE6-1 

1 


/BITS 0-2 OF PSEUDO 
/INSTRUCTION 

/IF OPCODEs0^ GO TO EXIT 
/AND INTERPRET BITS 8-11 


/FGET=5 


/CDF TO CALLING FIELD 


/FSUB=2i NEGATE OPERAND & ADD 
/FLAD=li FIRST ALIGN EXPONENTS 
/LARGER OF THE TWO IS IN FAC 
/TRIPLE PREC. ADD SINCE BITS ARE SHI 
/NORMALIZE THE RESULT 


/OPCODE=0 

/ARE BITS 8-11=0? 


/CDF CIF TO CALLING FIELD 

/YES> EXIT 
/LOOKUP IN TABLE 


/SAVE FIELD OF NEXT PSEUDO-INSTR. 


/SAVE RETURN ADDRESS 

/CALL AS A SUBROUTINE 

/IN CASE NOT CLEARED BY SUBR. 

/RESTORE RETURN ADDRESS 

/RESTORE MEMORY INSTR. 

/CALLING CAN BE TO A DEPTH OF ONE 
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FPACl=0052i 


6160 

5613 

RETN2> 

FPUT=6000; 

♦ 6160 

FPNTl 

6161 

0000 

SQUARE^ 

0000 

6162 

4407 


JMS I 0007 

6163 

6052 


FPUT FPACl 

6164 

3052 


FMPY FPACl 

6165 

0000 


FEXT 

6166 

5761 


JMP I SQUARE 

6167 

0000 

EXIT6* 

0000 

6170 

5767 


JMP I EXIT6 

6171 

7300 

FLMY> 

CLA CLL 

6172 

4777 


JMS I FLONDR 

6173 

3044 


DCA EXP 

6174 

4776 


JMS I MULT 

6175 

5760 


JMP I RETN2 

6176 

6200 

MULT# 

DMULT 

6177 

6513 

FLONDR# 

NDRFLO 

6271 

5375 


♦ 6271 

JMP ERROR 

6336 

5740 


♦ 6336 

NORF 

6373 

5613 

RETNl# 

♦ 6373 

FPNTl 

6375 

2061 

ERROR# 

FLAG=0061 

♦ 6375 

ISZ FLAG 

6376 

5773 


JMP I RETNl 

6377 

5773 


JMP I RETNl 

6545 

6161 

TABLE6# 

SQR00T=6673i 

PATANF=EXIT6i 

♦ 6545 

SQUARE 

6546 

6673 


SQROOT 

6547 

6167 


PSINF 

6550 

6167 


PCOSF 

6551 

6167 


PATANF 

6552 

6167 


PEXPF 

6553 

6167 


PLOGF 

6554 

6167 


EXIT6 

6555 

6167 


EXIT6 

6556 

6167 


EXIT6 

6557 

6167 


EXIT6 

6560 

6167 


EXIT6 

6561 

6167 


EXIT6 

6562 

6167 


EXIT6 


DMULT=6200i NDRFL0=6513 

FMPYS3000J FEXT=0000 


/DUMMY SUBROUTINE 
/FMPY=3 

/TEST EXPONENT UNDERFLOW 


/DIVISION BY ZERO 


/DIVISION BY ZERO—INCREMENT ERROR B 
/FAC UNCHANGED BY DIVISION BY ZERO 


PSINF=EXIT6i PC0SF=EXIT6 

PEXPF=EXIT61 PL0GF=EXIT6 


/TABLE FOR INTERPRETATION 
/OF BITS 8-11 

/CONTAINS ABSOLUTE ADDRESSES 

/OF PROGRAMS CALLED AS 

/SUBROUTINES 

/EXIT6=A DUMMY OR NOP 

/IF EXT. FCTS ARE NOT PRESENT 

/PSINF*PCOSF#PATANF>PEXPF>AND 

/PLOGF ARE SET=EXIT6 
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6563 

6167 

EXIT6 

6655 

7160 

♦ 6655 

TESTHI# BIGNEG 


SHFTRT=6062J AM0UNT=6151 


7160 0000 

7161 1046 

762 7640 

7163 5760 

7164 1045 

7165 7510 

7166 7041 

7167 7700 

7170 5760 

7171 7360 

7172 3776 

7173 4775 

7174 5760 

7175 6062 

7176 6151 


♦ 7160 

/TEST FOR LARGEST NEGATIVE NUMBER (MANTISSA=4000 000) 
/CALLED BY NORMALIZATION ROUTINE-DNORM-IF FOUND 
/SHIFT FLOATING AC RIGHT 1 BIT AND INCREMENT EXP 


BIGNEG« 0000 




TAD 


LORD 

/LOAD LOW ORDER WORD 


SZA 


CLA 

/IS IT ZERO 


JMP 

I 

BIGNEG 

/NO-CAN*T BE LARGEST NEG * 

RETURN 

TAD 


HORD 

/YES-LOAD HI ORDER WORD TO 

CHECK FOi 

SPA 



/SKIP IF # IS POSITIVE 


CIA 



/IF NEFATIVE^ NEGATE IT 


SMA 


CLA 

/IS # STILL NEGATIVE? 


JMP 

1 

BIGNEG 

/NO--RETURN 


CLA 

CMA 

CLL CML 

/YES--PREPARE TO SHIFT FAC 

RIGHT 1 E 

DCA 

I 

AMONTC 

/STORE -1 IN SHIFT COUNT 


JMS 

I 

BAKSFT 

/JMS TO SHIFT FAC AND INCREMENT EXP 

JMP 

I 

BIGNEG 

/RETURN 



BAKSFT# SHFTRT 
AMONTC* AMOUNT 









AC0N6 

5774 

ACIH 

0041 

ACIL 

0042 

ADDR 

5674 

ALGN 

5743 

ALIGN 

6020 

AMONTC 

7176 

AMOUNT 

6151 

BAKSFT 

7175 

BIGNEG 

7160 

CFIELD 

5753 

DATAF 

5672 

DMULT 

6200 

DNORM 

6600 

DUBADD 

5745 

DUBLAO 

7053 

DUNORM 

6533 

ERROR 

6375 

EXIT 

5747 

EXIT6 

6167 

EXP 

0044 

EXl 

0040 

FARG 

5616 

FEXT 

0000 

FLAD 

5735 

FLAG 

0061 

FLDV 

6264 

FLGT 

5713 

FLMY 

6171 

FLONDR 

6177 

FLPT 

5722 

FLSU 

5734 

FMPY 

3000 

FPACl 

0052 

FPNT 

5600 

FPNTl 

5613 

FPUT 

6000 

600 

5671 

GOB 

5673 

HORD 

0045 

INDRCT 

5701 

JUMP 

5667 

JUMP 2 

5670 

LOOP01 

5642 

LORD 

0046 

MASK3 

5676 

MASKS 

5601 

MASK? 

5677 

MINUS2 

6400 

MULT 

6176 

NDRFLO 

6513 

NORF 

5740 

NORM 

5746 

OPMINS 

5742 










OVERl 

0043 

0VER2 

0047 

PAGENO 

5700 

PATANF 

6167 

PCOSF 

6167 

PEXPF 

6167 

PLOGF 

6167 

PSINF 

6167 

RETNl 

6373 

RETN2 

6160 

SAVE 

5675 

SHFTRT 

6062 

SQROOT 

6673 

SQUARE 

6161 

TABLE 

5702 

TABLE6 

6545 

TESTHI 

6655 

UNORM 

5744 

X0 

0030 







